﻿Public Class BEpaciente

#Region "Declaración de variables"

    Private codPaciente As Integer
    Private codDiagnostico As Integer
    Private nombre As String
    Private apePaterno As String
    Private apeMaterno As String
    Private fecNacimiento As Date
    Private sexo As Char
    Private grupoSanguineo As Boolean
    Private vih As Boolean
    Private alcoholismo As Boolean
    Private tabaquismo As Boolean
    Private cancerFam As Boolean

#End Region

    Sub New()
    End Sub

    Sub New(ByVal pCodPaciente As Object, _
            ByVal pCodDiagnostico As Object, _
            ByVal pNombre As Object, _
            ByVal pApePaterno As Object, _
            ByVal pApeMaterno As Object, _
            ByVal pfecNacimiento As Object, _
            ByVal pSexo As Object, _
            ByVal pGrupoSanguineo As Object, _
            ByVal pVih As Object, _
            ByVal pAlcoholismo As Object, _
            ByVal pTabaquismo As Object, _
            ByVal pCancerFam As Object)


    End Sub

    Public Property _codPaciente() As Integer
        Get
            Return Me.codPaciente
        End Get
        Set(ByVal value As Integer)
            Me.codPaciente = value
        End Set
    End Property

    Public Property _codDiagnostico() As Integer
        Get
            Return Me.codDiagnostico
        End Get
        Set(ByVal value As Integer)
            Me.codDiagnostico = value
        End Set
    End Property

    Public Property _nombre() As String
        Get
            Return Me.nombre
        End Get
        Set(ByVal value As String)
            Me.nombre = value
        End Set
    End Property

    Public Property _apePaterno() As String
        Get
            Return Me.apePaterno
        End Get
        Set(ByVal value As String)
            Me.apePaterno = value
        End Set
    End Property

    Public Property _apeMaterno() As String
        Get
            Return Me.apeMaterno
        End Get
        Set(ByVal value As String)
            Me.apeMaterno = value
        End Set
    End Property

    Public Property _fecNacimiento() As Date
        Get
            Return Me.fecNacimiento
        End Get
        Set(ByVal value As Date)
            Me.fecNacimiento = value
        End Set
    End Property

    Public Property _sexo() As Char
        Get
            Return Me.sexo
        End Get
        Set(ByVal value As Char)
            Me.sexo = value
        End Set
    End Property



End Class
